home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / mod_left.omed < prev    next >
Text File  |  1999-02-14  |  594b  |  35 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. IN_SELECT LAST
  11. CALL checkifsample()
  12.  
  13. SA_GETSAMPLELENGTH VAR len
  14. SA_RANGE START len-1 END len
  15. SA_COPYRANGE
  16. SA_PASTE
  17. SA_RANGE START 0 END 0
  18. SA_DELRANGE
  19.  
  20. EXIT
  21.  
  22.  
  23.  
  24.  
  25. /*              P R O C E D U R E S
  26. -----------------------------------------------------*/
  27.  
  28. checkifsample: PROCEDURE
  29.    IN_GETTYPE VAR type
  30.    IF ~(type == SAMPLE | type == SAMPLE16) THEN DO
  31.       WI_REQUEST '"No sample!"' '"Ok"'
  32.       EXIT
  33.    END
  34. return
  35.